Change Event একটি গুরুত্বপূর্ণ VBA ইভেন্ট, যা এক্সেল শীটের কোনো সেলে পরিবর্তন ঘটলে ট্রিগার হয়। এর মাধ্যমে আপনি ডাইনামিক ফাংশনালিটি তৈরি করতে পারেন, যেমন সেল ভ্যালু পরিবর্তন হলে অটোমেটিকভাবে অন্য কোনো কাজ করা বা সেলগুলোর মান অনুসারে কিছু পরিবর্তন করা।
Change Event ব্যবহার করে আপনি শীটের নির্দিষ্ট সেল বা রেঞ্জের পরিবর্তনের ভিত্তিতে কোড চালাতে পারেন, যা অটোমেটেড কার্যক্রম এবং ডাইনামিক রেসপন্স তৈরি করতে সহায়ক।
Change Event এর মৌলিক ধারণা
Change Event তখনই ট্রিগার হয় যখন শীটে কোনো সেলে ডেটা পরিবর্তিত হয়, যেমন সেল এ কিছু লেখা হলে বা কোনো সংখ্যা পরিবর্তিত হলে। এটি আপনাকে সেল পরিবর্তন হতে দেখিয়ে সেই অনুযায়ী প্রোগ্রাম চালানোর সুযোগ দেয়।
উদাহরণ:
- যদি কোনো নির্দিষ্ট সেল পরিবর্তিত হয়, তখন অন্য সেলে মান সেট করা।
- সেলটির মান নির্দিষ্ট শর্ত পূর্ণ করলে একটি বার্তা প্রদর্শন করা।
- সেল গুলি অটোমেটিক ফরম্যাট করা যখন কোনো পরিবর্তন ঘটে।
Change Event ব্যবহারের জন্য কোড লেখা
Change Event কোডটি আপনাকে VBA এ Worksheet মডিউলে লিখতে হবে। এটি শীটে কোনো সেল বা রেঞ্জে পরিবর্তন ঘটলে স্বয়ংক্রিয়ভাবে ট্রিগার হবে।
উদাহরণ ১: একটি সেলের মান পরিবর্তিত হলে অন্য সেলে মান সেট করা
Private Sub Worksheet_Change(ByVal Target As Range)
' যদি A1 সেলে পরিবর্তন হয়
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
' তখন B1 সেলে একটি নতুন মান লিখে দিন
Me.Range("B1").Value = "Value Changed"
End If
End Sub
এটি A1 সেলে যেকোনো পরিবর্তন হলে B1 সেলে "Value Changed" লেখা হবে।
ব্যাখ্যা:
- Worksheet_Change: এটি একটি ইভেন্ট সাবরুটিন যা শীটের সেলে পরিবর্তন ঘটলে চালানো হয়।
- Target: এটি সেল বা রেঞ্জকে নির্দেশ করে যেখানে পরিবর্তন হয়েছে।
- Intersect: এটি চেক করে যে পরিবর্তনটি A1 সেলে ঘটেছে কিনা।
- Me.Range("B1").Value: B1 সেলের মান পরিবর্তন করে "Value Changed" সেট করা।
উদাহরণ ২: সেল গুলোর মধ্যে নির্দিষ্ট মান পরিবর্তন হলে সেল ফরম্যাট করা
Private Sub Worksheet_Change(ByVal Target As Range)
' যদি A1 সেলে মান 100 এর বেশি হয়
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
If Me.Range("A1").Value > 100 Then
' A1 সেলটি সবুজ রঙে পরিবর্তন হবে
Me.Range("A1").Interior.Color = RGB(0, 255, 0)
Else
' যদি A1 এর মান 100 এর কম হয়, তবে সেলটি লাল রঙে পরিবর্তন হবে
Me.Range("A1").Interior.Color = RGB(255, 0, 0)
End If
End If
End Sub
এটি A1 সেলের মান 100 এর বেশি হলে সেই সেলটিকে সবুজ (Green) রঙে পরিবর্তন করবে, অন্যথায় লাল (Red) রঙে।
ব্যাখ্যা:
- If Me.Range("A1").Value > 100: এই শর্তে A1 সেলের মান যাচাই করা হচ্ছে। যদি মান 100 এর বেশি হয়, তবে সেলটির রঙ সবুজ হবে।
- RGB(0, 255, 0): এই ফাংশনটি সবুজ রঙের জন্য কোড।
উদাহরণ ৩: রেঞ্জের মধ্যে পরিবর্তন হলে একটি বার্তা প্রদর্শন করা
Private Sub Worksheet_Change(ByVal Target As Range)
' যদি A1 থেকে A5 রেঞ্জের মধ্যে কোন পরিবর্তন হয়
If Not Intersect(Target, Me.Range("A1:A5")) Is Nothing Then
MsgBox "A1 থেকে A5 রেঞ্জে কিছু পরিবর্তন হয়েছে!"
End If
End Sub
এটি A1:A5 রেঞ্জের মধ্যে কোনো পরিবর্তন ঘটলে একটি ম্যাসেজ বক্সে বার্তা দেখাবে।
ব্যাখ্যা:
- Me.Range("A1:A5"): এটি A1 থেকে A5 রেঞ্জের মধ্যে পরিবর্তন চেক করছে।
- MsgBox: একটি বার্তা বাক্স প্রদর্শন করবে।
Change Event এ Multiple Cells এবং Specific Conditions Handling
আপনি একাধিক সেল বা নির্দিষ্ট শর্ত যোগ করে বিভিন্ন ধরনের কার্যক্রম চালাতে পারেন।
উদাহরণ ৪: সেল পরিবর্তনের ভিত্তিতে একাধিক সেলে পরিবর্তন করা
Private Sub Worksheet_Change(ByVal Target As Range)
' যদি A1 থেকে A3 রেঞ্জে কোন পরিবর্তন হয়
If Not Intersect(Target, Me.Range("A1:A3")) Is Nothing Then
' A1 থেকে A3 সেলগুলোর মান "Updated" লেখা হবে
Me.Range("A1:A3").Value = "Updated"
End If
End Sub
এটি A1:A3 রেঞ্জে কোনো পরিবর্তন হলে সেই সেলগুলোতে "Updated" লেখা হবে।
সারাংশ
Change Event আপনাকে Excel শীটে ডাইনামিক রেসপন্স তৈরি করতে সাহায্য করে। আপনি নির্দিষ্ট সেল বা রেঞ্জে পরিবর্তন হলে অটোমেটিকভাবে কোড চালানোর সুযোগ পান, যা বিভিন্ন কার্যক্রম যেমন ডেটা আপডেট, সেল ফরম্যাটিং, বার্তা প্রদর্শন ইত্যাদি সম্পাদন করতে ব্যবহৃত হয়। Worksheet_Change ইভেন্ট ব্যবহার করে একাধিক শীটে কাজের গতি ও কার্যকারিতা বাড়ানো যায়, বিশেষ করে যখন আপনাকে ব্যবহারকারীর ইনপুটের ভিত্তিতে স্বয়ংক্রিয় প্রতিক্রিয়া তৈরি করতে হয়।
Read more
